home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00190.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  723 b   |  24 lines
  1. on mouseUp me
  2.   global coolsunr, coolsung, coolsunb, iconfade
  3.   showit(36, 38)
  4.   set the blend of sprite 51 to 100
  5.   repeat with iconfade = 47 to 50
  6.     set the blend of sprite iconfade to 50
  7.   end repeat
  8.   repeat with iconfade = 52 to 54
  9.     set the blend of sprite iconfade to 50
  10.   end repeat
  11.   set the memberNum of sprite 36 to 19
  12.   sprite(40).color = rgb(coolsunr, coolsung, coolsunb)
  13.   sprite(51).color = rgb(coolsunr, coolsung, coolsunb)
  14.   if coolsung > 0 then
  15.     set the locH of sprite 38 to 100 - (coolsung / 2.54999999999999982) + 439
  16.   else
  17.     if coolsunr > 0 then
  18.       set the locH of sprite 38 to (coolsunr / 2.54999999999999982) + 539
  19.     else
  20.       set the locH of sprite 38 to 539
  21.     end if
  22.   end if
  23. end
  24.